home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1017 < prev    next >
Text File  |  1998-01-08  |  1KB  |  21 lines
  1. /dfnt{
  2.  /doall X/tpamt X/fnam X dup/pln X{/plnfnam X}if dup/bit X{cvn/bitfnam X}if
  3.  dup 2 and 0 ne/bf1 X 4 and 0 ne/usangl X/nmv X
  4.  FontDirectory fnam known not{fnam strpn{pop cvn doall{dup FontDirectory exch known}{T}ifelse
  5.  {findfont fnam nwf F}{pop T}ifelse}{pop doall}ifelse
  6.  {bit{FontDirectory bitfnam known{T}{bitfnam strpn{pop cvn dup FontDirectory exch known
  7.  {findfont bitfnam nwf T}{pop F}ifelse}{pop F}ifelse}ifelse}{F}ifelse
  8.  {/fnam bitfnam def}{pln{FontDirectory plnfnam known{/fnam plnfnam def F}
  9.  {plnfnam strpn{pop cvn dup FontDirectory exch known{findfont plnfnam nwf/fnam plnfnam def F}
  10.  {pop T}ifelse}{pop T}ifelse}ifelse}{T}ifelse{fnam strpn{pop cvn findfont fnam nwf}
  11.  {pop}ifelse}if}ifelse}if}if
  12.  nmv{cleartomark}if/sa X fnam findfont dup/fnt X/MFontType known
  13.  not dup/nbm X{fnt/FontType get 0 eq{F}{fnt/PaintType 2 copy known
  14.  {get 0 ne}{pop pop T}ifelse}ifelse}{T/usangl X T/bf1 X T}ifelse{/tpamt 0 def}if
  15.  usangl sa 2 and 0 ne and/usangl X F/doss X
  16.  sa 16 and 0 ne{fnt fnam sss sts 0 stlf}{sa 8 and 0 ne{fnt fnam sos sts 1 stlf}
  17.  {sa 1 and 0 ne bf1 and{fnt fnam sbs sts 2 stlf}{tpamt 0 ne{fnt fnam sts 3 stlf}
  18.  {nbm fnt/FontType get 0 ne and/doss X fnt}ifelse}ifelse}ifelse}ifelse
  19.  [exch 0 usangl{1 add}if doss{2 add}if] far 3 1 roll put
  20. }B
  21.